home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 19
/
Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso
/
Aminet
/
comm
/
cnet
/
time_clock.lha
/
timerclock
/
TimeClock
< prev
next >
Wrap
Text File
|
1997-03-13
|
6KB
|
100 lines
/**************************************************************************\
$VER: Time Clock, v2.00 (14-Mar-97) by Dotoran of Frontiers!
\**************************************************************************/
options results;signal on SYNTAX;signal on ERROR;signal on IOERR
a=sourceline(2);parse var a . ", "ver" ("vdate")" .
tr=transmit;se=sendstring;gu=getuser
a="rexxsupport.library";if ~show("l",a) then if ~addlib(a,0,-30) then exit
parse source . . fp .;df=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
v1="d e 9 f c" /* Text, Colon, BIG #'s, :, A/PM - Current Time */
v2="d e 9 f c" /* Text, Colon, BIG #'s, :, A/PM - Logon Time */
v3="d e b" /* Text, Colon, BIG Number for Minutes Online */
v4="6 a e f b a" /* Text, YourCalls, SysCalls, TotText, BBSName, MinsLeft */
v5=" " /* Gutter Space between BIG characters. */
te=1 /* Use Time Clock Extensions? (0=No,1=Yes) */
parse var v1 c1 c2 c3 c4 c5 .; parse var v2 l1 l2 l3 l4 l5 .
parse var v3 m1 m2 m3 . ; parse var v4 t1 t2 t3 t4 t5 t6 .
path=df ; gu 28 ; if result>1 then term=0 ; else term=1
if term=0 then call ANSI ; else call ASCII
gu 57 ; l=subword(result,3) ; a=right(l,1) ; lap="" ; cntr=90
if a="a" | a="p" then do ; lap="AM" ; l=left(l,length(l)-1)
cntr=96 ; if a="p" then lap="PM" ; end
logon=l||lap ; gu 1200032 ; mins=result%10 ; gu 7 ; left=result%10
gu 22 ; total=result ; gu 95 ; stotal=result
bbsidentify name ; bbsname=result
gu 12 ; t=subword(result,3) ; a=right(t,1) ; ap=""
if a="a" | a="p" then do ; ap="AM" ; t=left(t,length(t)-1)
if a="p" then ap="PM" ; end
time=t||ap ; time.="" ; logon.="" ; mins.=""
tr "f1Cc"c1"Current Timec"c2":"
do i=1 to length(time) ; a=substr(time,i,1) ; a=index("0123456789:APM",a)-1
c="" ; if a<10 then c="c"c3 ; if a=10 then c="c"c4 ; if a>10 then c="c"c5
do j=1 to 4+term ; time.j=time.j||c||n.a.term.j||v5 ; end j ; end i
do i=1 to 4+term ; tr center(time.i,cntr) ; end i
tr "n1Cc"l1"Your Logon Timec"l2":"
do i=1 to length(logon) ; a=substr(logon,i,1) ; a=index("0123456789:APM",a)-1
c="" ; if a<10 then c="c"l3 ; if a=10 then c="c"l4 ; if a>10 then c="c"l5
do j=1 to 4+term ; logon.j=logon.j||c||n.a.term.j||v5 ; end j ; end i
do i=1 to 4+term ; tr center(logon.i,cntr) ; end i
tr "n1Cc"m1"Minutes Onlinec"m2":c"m3
do i=1 to length(mins) ; a=substr(mins,i,1) ; a=index("0123456789:APM",a)-1
do j=1 to 4+term ; mins.j=mins.j||n.a.term.j||v5 ; end j ; end i
do i=1 to 4+term ; tr center(mins.i,78) ; end i
se "n1>9c"t1"You've made c"t2||total" c"t1"of the c"t3||stotal
tr " c"t4"Total Calls c"t1"to c"t5||bbsname"c"t1"..."
tr "n1>9You have c"t6||left" c"t1"minutes left this call..."
if te then se "@4#0"path"TimeClockE}"
exit
ASCII:
n.0.1.1=" ##### ";n.0.1.2="# ###";n.0.1.3="# # #";n.0.1.4="### #";n.0.1.5=" ##### "
n.1.1.1=" ## ";n.1.1.2="### ";n.1.1.3=" ## ";n.1.1.4=" ## ";n.1.1.5="####"
n.2.1.1=" ##### ";n.2.1.2="## ##";n.2.1.3=" ## ";n.2.1.4="### ";n.2.1.5="#######"
n.3.1.1=" ##### ";n.3.1.2="## ##";n.3.1.3=" ### ";n.3.1.4="## ##";n.3.1.5=" ##### "
n.4.1.1="## ## ";n.4.1.2="## ## ";n.4.1.3="#######";n.4.1.4=" ## ";n.4.1.5=" ## "
n.5.1.1="###### ";n.5.1.2="## ";n.5.1.3="###### ";n.5.1.4=" ##";n.5.1.5="###### "
n.6.1.1=" #### ";n.6.1.2=" ## ";n.6.1.3="###### ";n.6.1.4="## ##";n.6.1.5=" ##### "
n.7.1.1="#######";n.7.1.2=" ##";n.7.1.3=" ## ";n.7.1.4=" ## ";n.7.1.5=" ## "
n.8.1.1=" ##### ";n.8.1.2="## ##";n.8.1.3=" ##### ";n.8.1.4="## ##";n.8.1.5=" ##### "
n.9.1.1=" ##### ";n.9.1.2="## ##";n.9.1.3=" ######";n.9.1.4=" ## ";n.9.1.5=" #### "
n.10.1.1=" ";n.10.1.2="##";n.10.1.3=" ";n.10.1.4="##";n.10.1.5=" "
n.11.1.1=" ##### ";n.11.1.2="## ##";n.11.1.3="#######";n.11.1.4="## ##";n.11.1.5="## ##"
n.12.1.1="###### ";n.12.1.2="## ##";n.12.1.3="###### ";n.12.1.4="## ";n.12.1.5="## "
n.13.1.1="### ###";n.13.1.2="#### ####";n.13.1.3="## ### ##";n.13.1.4="## # ##";n.13.1.5="## ##"
return
ANSI:
n.0.0.1=" ÜÜÜÜÜ ";n.0.0.2="ÛÛ ÜÛÛ";n.0.0.3="ÛÛÜß ÛÛ";n.0.0.4="ßÛÜÜÜÛß"
n.1.0.1=" ÜÜ " ;n.1.0.2="ßÛÛ " ;n.1.0.3=" ÛÛ " ;n.1.0.4="ÜÛÛÜ"
n.2.0.1=" ÜÜÜÜÜ ";n.2.0.2="ßß ÛÛ";n.2.0.3="ÜÛßßßß ";n.2.0.4="ÛÛÜÜÜÜÜ"
n.3.0.1=" ÜÜÜÜÜ ";n.3.0.2="ßß ÛÛ";n.3.0.3=" ßßÛÜ";n.3.0.4="ßÛÜÜÜÛß"
n.4.0.1="ÜÜ ÜÜ";n.4.0.2="ÛÛ ÛÛ";n.4.0.3=" ßßßßÛÛ";n.4.0.4=" ÛÛ"
n.5.0.1="ÜÜÜÜÜÜÜ";n.5.0.2="ÛÛÜÜÜÜ ";n.5.0.3=" ÛÛ";n.5.0.4="ßÛÜÜÜÛß"
n.6.0.1=" ÜÜÜ ";n.6.0.2="ÜÛß ";n.6.0.3="ÛÛßßßÛÜ";n.6.0.4="ßÛÜÜÜÛß"
n.7.0.1="ÜÜÜÜÜÜÜ";n.7.0.2=" ÛÛ";n.7.0.3=" ÜÛß ";n.7.0.4=" ÛÛ "
n.8.0.1=" ÜÜÜÜÜ ";n.8.0.2="ÛÛ ÛÛ";n.8.0.3="ÜÛßßßÛÜ";n.8.0.4="ßÛÜÜÜÛß"
n.9.0.1=" ÜÜÜÜÜ ";n.9.0.2="ÛÛ ÛÛ";n.9.0.3=" ßßßßÛÛ";n.9.0.4="ßÛÜÜÜÛß"
n.10.0.1=" ";n.10.0.2="ÛÛ";n.10.0.3="ÜÜ";n.10.0.4="ßß"
n.11.0.1=" ÜÜÜÜÜ ";n.11.0.2="ÛÛ ÛÛ";n.11.0.3="ÛÛßßßÛÛ";n.11.0.4="ÛÛ ÛÛ"
n.12.0.1="ÜÜÜÜÜÜ ";n.12.0.2="ÛÛ ÛÛ";n.12.0.3="ÛÛßßßß ";n.12.0.4="ÛÛ "
n.13.0.1="ÜÜ ÜÜ";n.13.0.2="ÛÛÛÜ ÜÛÛÛ";n.13.0.3="ÛÛ ßÛß ÛÛ";n.13.0.4="ÛÛ ÛÛ"
return
CHECK:;if ARG() & ARG(1)~="###PANIC" then return ARG(1)
getcarrier;if result="TRUE" then if ARG() then return ARG(1);else return
logentry "Lost Carrier!!";bufferflush;exit
SYNTAX:;ERROR:;IOERR:;e1="n1 Error: "rc" ("errortext(rc)")"
e2=" Line: "left(sigl,4)"File:";c="`"fp", "ver"'";e2=e2" "c;tr e1;tr e2
logentry e1;logentry e2;e=strip(translate(sourceline(sigl),"\{",""))
do while e~="";e3="Source: "left(e,37);tr e3;logentry e3;e=substr(e,38);end
bufferflush
/**************************************************************************\
\****************************************** Frontiers BBS (716)/823-9892 **/